(Fcall_process_region): Unbind coding-system-for-write

after calling Fwrite_region.

diff --git a/src/callproc.c b/src/callproc.c
index 0c9ce9a3a1cb1ea14ee90e71be027659d651e7d2..a09649c639a38d7fadff994a8d40511f21a3f1d7 100644 (file)
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -840,8 +840,14 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
        val = Qnil;
     }
 
-  specbind (intern ("coding-system-for-write"), val);
-  Fwrite_region (start, end, filename_string, Qnil, Qlambda, Qnil, Qnil);
+  {
+    int count1 = specpdl_ptr - specpdl;
+
+    specbind (intern ("coding-system-for-write"), val);
+    Fwrite_region (start, end, filename_string, Qnil, Qlambda, Qnil, Qnil);
+
+    unbind_to (count1, Qnil);
+  }
 
   /* Note that Fcall_process takes care of binding 
      coding-system-for-read.  */